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Julian Half Day Conversions 16-5e ‘$ep-1984 01: AX-11 Bliss-32 V4.0-74 Page 1 
: ~300n 138% 9}: she EVL.SRCJEVLJULIAN.B32; ‘¢ . (1) 


ZTITLE ‘Julian Half Day Conversions’ 
MODULE EVLJULIAN ANGUAGE 1 "3 
alte yoke $88?” 


BEGIN 


' 
i SHAKATAK AAAAEAAAAAAAAAAAAAAETAAAAAAAAEAAAAERARAAAAAAAARERAAAEAAEREREREREAREE 


ie 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie 51 orate ace NT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL R S RESERVED. 

ie THIS SOFTWAR fs pani see po A ay CEse AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE oF sven LICENSE AND WITH THE 

CLUSION OF THe aye COPYRIGHT NO OTIC $ SOFT WARE OR ANY 1h = 
S THEREOF MAY NOT BE P ROVIDED. OR BTHERUI SE MADE AVAILABLE T 


T 
i: eines NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 
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il INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- ae ookat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


C 
'@ 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
Seueennnbnennennenekbendnananebioeaninnedbentianeeeiniasetinammatn 
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00 !e¢ 
09 ¢ : FACILITY: DECnet Event Logging (EVL) 
ABSTRACT: 
8 8 i This module contains the routines to convert to and from 
9 9 : the gtencers date-time format for event Logging. Julian 
40 0 ‘ not day. he internal date-time for DECnet-VAX is VAX 
$ 1 A. A. time. 
43 $ ENVIRONMENT: VAX/VMS Operating System 
45 5 AUTHOR: Darrell Duffy , CREATION DATE: 8-Jun-1980 
4 : MODIFIED BY: 
4 4 i » + VERSION 
0 39 ! 01 - 
1 leo 


<m 
ocx 
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* = bee De speartattone Hec$sgc198G QUR4:4E WAC TDaBhdnesBP th 852 Pane 25 


ZSBTTL ‘Definitions’ 


fe 
= 
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25 


INCLUDE FILES: 


if f 
if ! ; 
4" j ae OF CONTENTS: ; 
fi § 
D6 FORWARD ROUTINE 
* Me sg t, ' Convert from abstim to julian : 
y06 LIAN : NOVALUE ! Convert from julian to abstim : 


LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 


i MACROS: 


: EQUATED SYMBOLS: 


SHNSAFANASSSISALERIS SaVenr 


a BB 8 a a Sd a a a a a dt se a tn 9 ts 


LITERAL 
SUCCESS = 1, 
FAILURE = 0 
5 ; 
; i OWN STORAGE: 
1 
e EXTERNAL REFERENCES: 
91 ‘EXTERNAL ROUTINE 
92 : 3 


tin'to Julian Half Days 1$-$e0-1984 9b:38:48 HEC SePSESESOE An:83584 Page 153 


IAN Convert Sortie to Julian Half Da 


VLSJULIAN (ABS 


s’ 
Hi, HALFDAY, SECONDS, MILISEC) = 


+e 
FUNCTIONAL DESCRIPTION: 


4 gos time to julian half day, seconds and 
his computation is taken directly from the 


Network Management Functional Specification. 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


Ot es 8 


Address of quadword obs time 

Address to return halfday 9s a longword 

Address to return seconds n half 7 = a longword 
m 


Address to return milliseconds as a longword 


if data returned, Failure if abs time is out of range 
ulian half day, or conversion of abstime fails. 


SIDE EFFECTS: 


AL 
TIMVEC : VECTOR C7, WORD], ! Vector of words to return disected 


RENO OONAUE WN $$ O ODNOUFS WHO 0C 


me a a a a a a a a a a = a tt = = = = = 2s 2 = 2 4 SS 2 2 


Perr Bo SERS SS ad nb use 
SSaRSSEEASS MmFwn— NOVEWUN —OOONOUFS UN 
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1 
1 
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1 


4 
4 
4 
4 
& 
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PPMP INPIPINPDNPIPIPIPIPUNIPIPIPIPIIIABYD a a a a at at Ot OS OO I SO SS 


Abs time 
Local status 


! Each piece of the disected time 


umf urn—o 
zw 
oo 
es 


Disect the abs time 


Sz 


tt et 4 2 — 4 bd a 2 bs 2s — 2 bs — 2b td 2» 8 tb ds a a a a a 3 a i ts tt 
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convert Abstin to Julian Half Days -$ b-Sen- 1382 9}: 34; 43 EVL.SRCJEVLJULIAN. B30: - (3) 

( 

TIMBUF = TIMVEC !' Buffer to place disected time 

TIMADR = .ABSTIA i Place to obtain 64 bit time 

) 

THEN 
' RETURN .STATUS ! It was not valid 
IF ¢ ! Check the range of the date 


«YEAR GTRU 2021 
"aan GTR 10 


OR 
- YEAR LSSU 1977 


TMENRETURN FAILURE ! Not expressible in julian halfday 
«HALFDAY = ! Compute the half day 
iN (3055 * (.MONTH*#2) / 100) = ( (.MONTH+10) / 13) * 2 = 91) 
iN (1 = (YEAR = .YEAR / 4 * 4 + 3) / 4) ® (.MONTH+10) / 13 + .DAY = 1) 
AS pametthianie * 365 + (.YEAR-1977) / 4) 
sHALFDAY = ..HALFDAY + (.HOUR/12); ! Adjust for the odd half day 
HOUR = .HOUR MOD 12; 
SECONDS = ( .HOUR®3600 + .MINUTE*60 + .SECND ); ! Now the second in day 
-MILISEC = .HNDRTH * 10; ! And the millisecond in the second 
RETURN SUCCESS 
END; 


TITLE EVA JULIAN Julian Half Day Conversions 
\v04-000\ 


-EXTRN SYSSNUMTIM 
-PSECT SCODES,NOWRT 2 


0016 ENTRY Hee spi Save R2,R3,R4 : 0093 
5E 10 C€ UBL2 3 

oe ke ca 
000000006 90 5 F CALLS i SYSSMUMTIN F 
BLBS Atus, ; 
1 RET F 

54 6€ 3C 00016 18: MOVZWL YEAR, R4 : 0159 
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e= 
Ss 

= 
mc. 
<c 
| a 
os 
ce 
== 

ao 
ogo 


EDIV #12, (§P)+, RO, RO 
MOVW R 


O7ES 8F 4 81 CMPW RY. #2021 : : 
OA 02 At Bt Chey TH, #10 ; 
0 B).EQU ; : ; 
0099 BRW : : 
8F 1 CMPW 30 soRG, #1977 : ; 
02 Ae 3 MOVIL MONTH, R ; ; 
o00008EF 8F cs MULL2 W0s8. RS F : 
1 DE e : vag 61 0<R2), R2 : : 
0000006 F § Ive #100, R2 : : 
2 Ae v moat R3 : 
At 48 DDL2.# Q. Rs : 
50 ¢ DIVLS #13, R3, RO F 
pie AE : 
51 4 £6 DIVLS #4. R4, RI : 
1 4 C4 C LL2 #4, RI ; 
1 4 ¢ F SUBL2 R4, RI : 
1 3 ¢ $e SUBL2 «#3, RI ; 
4 01 At SE b006 pias ACRID. RO : 
5 33 ee 6C ty R3, RO : 
0 D g6 5F DIVLe #1, RO ; 
1 04 AF MOVZWL DAY, R1 ; 
8 C 7 ADDL R1, § 
2c ADDL Res .R 3 
51 4 00000160 F ¢ 7¢ MULLS #365, R4, RI : 
84 i f 4 Sty PM ie R2 ; 
ADDL F 
FFFGFCDF E MOVAB R R R F 
128 “Fane RI) 03, 0 
ade: 0 fF 3 moviWL A H be “an hens ; 
¢ cs DIVL » RO ; 
aa 2 ste, neta : 
at i MU #1, RO, #0, -(SP) ; 
hi : 
iG : 
1 3 
1 $ 
0 $ 
| 3 


E MOVZWL +3 ako 
00000e 75 af g 2 #3606 RO 
AE ¢ MOVZWL MINUTE, R 
35 C #60, Ri 
0 R f° 
OA A ¢ MOVZWL i 
oc «BC 5 g ADDL "6, "AsecoNns 
oc AE mOVZyL HNOR 
10 BC AC MULLS #10, 86, aMILISEC 
1 MOVL #1, °RO 
RET 
50 D4 CLRL = RO 
4 RET 


; Routine Size: 231 bytes, Routine Base: S$CODE$ + 0000 
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We tan “Concert dul ien Halfday to Abs Tim 13-00-1984 9}: 38; ta EYL SRE ence) $33: 


esertt A he as tog tr Convert Julian Halfday to Abs Time 


GLOBAL ROUT UNJULIAN (JULIAN, SECNDS, MILSECS, ABSTIM) :NOVALUE = 


FUNCTIONAL DESCRIPTION: 
Convert nycen Sat halfday, seconds and milliseconds to VMS 64 bit 


absolute need to do lots of monkeying around to not have 
ine one EMUL C instruct on overflow. The important pversigg factor 
n BUR pgroutet on is the number of days between 17-NOV-1858 and 
{FORMAL PARAMETERS: 
JULIAN Address of longword containing julian oe pore 
Address of longword containing seconds in halfday 
MILSECS Address of longword containing milliseconds in second 
ABSTIM Address of quadword for abs time 
i IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
p Sowistome CODES: 


NONE 
{SIDE EFFECTS: 
NONE 
BEGIN 
BUILTIN EMUL ; ! Extended multiply instruction 
LOCAL 
' 190 nenose ste 
JULIAN. MINS, i Minutes since t=) 90-1977 
NANOSPERMI N ! 100 nanosecs in a minute 


IND 
tienen = 43144 Days betugen 17-NOV-1858 and 


l-Jan- 


NANOSPERMIN = 60*10*1000*1000 
Ae Co (. «SECNDS MOD bo) HB sd} + “achdegb )« C198 1009) 
- lee Ma AH »)* ) + (..SECNDS / 60); 


oi RINS = (.. JULIAN + me 
ERMIN, NANOSECS, .ABSTI 


L (JULIAN_MINS, NANO 
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EVLSUNJULIAN Convert Julian Halfday to Abs Tim 1 EVL.SRCJEVLJULIAN. B32: (4) 
: 249 0246 1 END; 
DATEOFFSET= 43144 
000¢ 000 ENTRY AN, Save R2,R3 : 0190 
53 23€34600 8F § 0 MOVL #0000000, ha NANOSPERAIN + 0241 
ze 99 08 8c 1 7A 9 EMUL -(SP) + 0242 
5 C¢ 78 F EDIV is (SB) r “ad” “RO : 
00000368 BF C4 O14 MULL 60 ; 
. £ 1B ADDL Secs F 
: 5 9000371 F C5 OOO1F MULL | ‘ot OWANOSECS : 
04 BC 000002D ; £ 7 MULL , @JULIAN AN. RO + 0243 
1 08 DIVL 5 33 Echos ; 
0383FD00 E14 E MOVAB e3t47Seocnt) Enos 1AN_MINS ; 
10 BC 52 A 0 p EMUL AN_MINS, aeNosbe MIN; NANOSECS, @ABSTIM : 0244 
04 0004 RET + 0246 


3; Routine Size: 68 bytes, Routine Base: S$CODE$ + 00E7 


EVLJULIAN Julian Half Day Conversions 1b-5e Ax-11 $s-32 V4.0-74 P 
ritetitct EVLSUNJULIAN Eonvert Julian Halfday to Abs Tim 1 =3007 138% 9}: 3hid YEVL. gree ray g33: une (s8 


$23 tae 4 Freon !End of module 


PSECT SUMMARY 
; Name Bytes Attributes 
; SCODES 299 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Memor ry ut Used: 68 pages 
Compilation Complete 


; eooweee= Symbols ocoeeoo- Pages Processing 

: File Total ioaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 3 0 581 00:01.0 

; COMMAND QUALIFIERS 

H BLiSS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS$:EVLJULIAN/OBJ=OBJ$:EVLJULIAN MSRC$:EVLJULIAN/UPDATE=(ENH$:EVLJULIAN) 
: 1 ep. + 0 data bytes 

: Elapsed. Time: 

3; Lines/CPU M §S¢ 

3 Lerenes/CPU-Rin: 56 


NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


os 


015 AH-BT1i3A-SE DIGI 
VAX/VMS V4.0 CONF 


